1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
405 PRINT"             [201][206][211][212][210][213][195][212][201][207][206][211] [146]
410 [153]"  (null)HIS PROGRAM WILL GIVE YOU TEN MULTI-"
415 [153]"  PLICATION, DIVISION, SUBTRACTION OR
420 PRINT"  ADDITION QUESTIONS.
425 [153]"  RIGHT$ WILL GIVE YOU A QUESTION AT THE
430 PRINT"  BOTTOM OF THE SCREEN, WHERE YOU
435 [153]"  WILL PLACE YOUR ANSWER.
440 PRINT"  [201]F YOUR ANSWER IS CORRECT, [201] "
445 PRINT"  WILL GIVE YOU ANOTHER QUESTION.
450 [153]"  RIGHT$F YOU FAIL TO GET THE CORRECT
455 PRINT"  ANSWER AFTER 3 ATTEMPTS, [201] WILL         GIVE YOU THE ANSWER.
460 [141] 820
465 [142]
485 [141]835
495 [142]
699 :
700 [143] <YES>
705 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
710 [151]54296,15:[151]54277,42:[151]54278,250
715 [151]54276,23:[151]54273,23:[151]54272,191
720 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
725 [151]54296,0:[142]
730 [143] <NO>
735 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
740 [151]54296,15:[151]54277,18:[151]54278,242
745 [151]54276,33:[151]54273,4:[151]54272,48
750 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
755 [151]54296,0:[142]
760 [143] <BLIP>
765 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
770 [151]54296,7:[151]54277,42:[151]54278,250
775 [151]54276,23:[151]54273,23:[151]54272,191
780 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
785 [151]54296,0:[142]
790 [129]T[178]1[164]500:[130]:[142]
791 [129]T[178]1[164]1000:[130]:[142]
792 [129]T[178]1[164]2000:[130]:[142]
793 [129]T[178]1[164]3000:[130]:[142]
795 [129]T[178]1[164]5000:[130]:[142]
800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,5
801 [153]"     A TPUG EDUCATIONAL PROGRAM
802 PRINT"           FOR C64 COMPUTERS
803 [153]"              GRADES 2-6":[141]791
804 [153]"                                        WAIT";
805 [153]"                                        WAIT";
806 [153]"                                        WAIT";
807 [153]"           MATH FACTS DRILL             WAIT";
808 [153]"                                        WAIT";
809 [153]"                                        WAIT";
810 [153]"                                        WAIT":[141]792:[141]760
811 [153]"          INSTRUCTIONS?  Y/N
812 GETUI$:IFUI$<>"Y"ANDUI$<>"N"THEN812
813 IFUI$="Y"THENGOSUB400
814 PRINT"[147] AND AWAY WE GO..........":GOSUB792:GOSUB700
815 GOTO 1000
820 GOSUB791:GOSUB760
823 POKEUN,0:PRINTLEFT$(UD$,24);"[208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE[146]"
825 GETUI$:IFUI$<>" "THEN825
830 RETURN
835 GOSUB791:GOSUB760
837 POKEUN,0:PRINTLEFT$(UD$,24);"[158]      [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE[146]      [155]"
840 GETUI$:IFUI$<>" "THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEM PRESS [210][197][212][213][210][206][146]
865 UH[178]0:[153]"":[142]
900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
905 UD$[178]"":UP$[178]                                       "
906 DIMRM(9,9)
909 RETURN
910 GOSUB900:PRINT"[147] "
920 GOTO 800
1000 PRINT"[147]"UC$;:RESTORE:POKEUY,6:POKEUX,6
1170 POKE UT,UL%:UT$=" [205]ATH [198]ACTS [196]RILL":UG$="":UP=0:GOSUB850:UP=0
1175 PRINT" [215]HICH OPERATION WOULD YOU LIKE TO":PRINT" PRACTICE? "
1180 PRINTSPC(11)"[193][146][145][157][164]DDITION"
1190 PRINTSPC(11)"[211][146][145][157][164]UBTRACTION"
1200 PRINTSPC(11)"[205][146][145][157][164]ULTIPLICATION"
1210 PRINTSPC(11)"[196][146][145][157][164]IVISION":GOSUB760
1220 PRINTSPC(10)" ";
1230 UR$="":US$="ASDM":UL=1:GOSUB35:K$=UR$
1255 BX=0:TX=10
1256 CH=0:W1=0:R=0:W=0
1260 BY=0:TY=10
1270 FORX1=1TO9:FORY1=1TO9:RM(X1,Y1)=0:NEXTY1:NEXTX1
1275 PRINT"[147]":IFUW=0THENSYSUU,15
1280 IFK$="Q"THENRETURN
1282 UT$=" [205]ATH [198]ACTS":UG$="[209]UESTION #":GOSUB850:GOSUB2220
1285 W1=0
1300 X=INT(RND(TI)*9)+1
1310 Y=INT(RND(TI)*9)+1:IFRM(X,Y)=1THEN1300
1315 RM(X,Y)=1
1320 IFR$= "S"ANDY>XTHENSX=X:X=Y:Y=SX:GOTO 1580
1330 IFK$="M" THEN 1380
1340 IFK$="D" THEN 1440
1350 IFK$="A" THEN 1510
1360 IFK$="S" THEN 1580
1380 PRINTSPC(18)"[145]"X" X "Y" = ";
1385 PP=X*Y
1390 PRINT"[160][160][160][157][157][157]";:US$="-1234567890Q":UL=2:GOSUB35:IFUR$="Q"THENGOSUB8145:GOTO
1395 A=VAL(UR$)
1420 IF A=X*Y THEN 1740
1430 IF A<>X*Y THEN 1780
1431 IF UR$="Y" THEN 1170
1435 GOTO 1390
1440 REM**DIVISION***
1450 D1=X*Y
1460 PRINTSPC(18)"[145]"D1" / "Y" = ";
1462 PP=X
1463 PRINT"[160][160][160][157][157][157]";
1465 US$="-1234567890Q":UL=2:GOSUB 35:IF UR$="Q" THENGOSUB8145:GOTO1450
1467 A=VAL(UR$)
1490 IF A*Y=D1 THEN 1740
1500 IF A*Y<>D1 THEN 1780
1501 IF UR$="Y" THEN 1170
1505 GOTO 1465
1510 REM**ADDITION****
1520 PRINTSPC(18)"[145]"X" + "Y" = ";
1525 PP=X+Y
1530 PRINT"[160][160][160][157][157][157]";:US$="-1234567890Q":UL=2:GOSUB35:IFUR$="Q"THENGOSUB8145:GOTO
1535 A=VAL(UR$)
1560 IF A=X+Y THEN 1740
1570 IF A<>X+Y THEN 1780
1571 IF UR$="Y" THEN 1170
1575 GOTO1530
1580 REM**SUBTRACTION***
1590 PRINTSPC(18)"[145]"X" - "Y" = ";
1595 PP=X-Y
1600 PRINT"[160][160][160][157][157][157]";:US$="-1234567890Q":UL=2:GOSUB35:IFUR$="Q"THENGOSUB8145:GOTO
1605 A=VAL(UR$)
1630 IF A=X-Y THEN 1740
1640 IF A<>X-Y THEN 1780
1641 IF UR$="Y" THEN 1170
1645 GOTO 1600
1650 REM**GIVE THEM THE NEWS
1655 IF R+W=0 THEN RETURN
1660 S=(R/(R+W))*100
1670 R$="PROBLEMS WERE":IFR=1THENR$="PROBLEM WAS"
1680 W$="PROBLEMS WERE":IFW=1THENW$="PROBLEM WAS"
1690 UP=0:UH=1:GOSUB850:UG$="[211]CORES"
1695 PRINT""R;R$" RIGHT":PRINT""W;W$" WRONG"
1700 PRINT"[147] [212]HAT GIVES YOU ";
1710 PRINT"A SCORE OF"INT(S*10+.5)/10"%"
1715 IFCH=5THENCH=0:GOTO2155
1720 GOTO8152
1730 GOSUB835:PRINT"[147]";:UP=UP-1:GOTO1270
1740 REM**KEEP TRACK OF RIGHTS***     L
1750 R=R+1:GOTO1860
1760 PRINT"[147]";:GOTO1280
1770 REM**KEEP TRACK OF THE WRONGS**
1780 W1=W1+1
1781 IF W1=3 THEN GOTO 2260
1782 PRINT TAB(6);"[150][211]ORRY, BUT THAT IS WRONG!! [146][145][155]":GOSUB730
1783 FOR Q=1 TO 1500:NEXT:PRINT"                                     [145]"
1785 PRINT "[145][145]";TAB(30)
1790 IFK$="M" THEN 1390
1800 IFK$="D" THEN 1463
1810 IFK$="A" THEN 1530
1820 IFK$="S" THEN 1600
1840 RETURN
1850 REM"[166][166][166][166][166][166][166][166][166][166][166]SELECT THE GOODIE MSG
1860 [153]"SYSLOAD"
1870 [153]"      SPC(     SPC(   SPC(SPC(SPC(SPC(SPC(SPC(    SPC(SPC(SPC(SPC(SPC("
1880 [153]"       SPC(   SPC(    SPC(         SPC("
1890 [153]"        SPC( SPC(     SPC(         SPC("
1900 [153]" (null)(null)(null)     SPC(      SPC(SPC(SPC(       SPC(SPC(SPC(SPC(SPC(    (null)(null)(null)"
1910 [153]"         SPC(      SPC(             SPC(
1920 PRINT"         [166]      [166]             [166]"
1930 PRINT"         [166]      [166][166][166][166][166][166]    [166][166][166][166][166]"
1940 PRINT"                [155]":GOSUB700
1950 IF X=BX+3 THEN PRINT TAB(12);"[217]OU'RE A WINNER"
1960 IF X=>BX+6 THEN PRINTTAB(13);"[212]HAT'S [199]REAT
1970 [139] X[178]Y [167] [153][163]10);"...BUT IT WAS EASY!":[153]
1980 [141]3370:[139]UP[173]10[178][181](UP[173]10)[167][137]2150
1985 [137]1760
2140 [143]**OPTION TO CHNGE**
2150 CH[178]5:[141]835:[137]1660
2155 [153]" (null)OU NOW HAVE ANSWERED 10 PROBLEMS.":[141]793
2160 [153]" (null)OU HAVE A CHOICE:
2165 PRINT" [208]RESS  [208] [146] TO CONTINUE.
2170 [153]" (null)RESS  (null) WAIT TO RETURN TO MAIN (null)VAL(null)(null)":[141]760
2175 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]2175
2180 [139]R$[178]"P"[167] 1170
2190 [153]"LOAD (null)ETURNING TO THE MAIN (null)VAL(null)(null)
2195 LOAD"MENU",8
2197 RUN
2199 END
2220 Q=INT(RND(TI)*16)+1:Q$="[186][180]/[165][220][172][161][219][185][177][201][216][171][170]*^"
2230 FORP=.6TO6.2STEP.3
2240 PRINTTAB(18*(1+SIN(P))+1);MID$(Q$,Q,1):NEXT
2250 RETURN
2260 PRINTTAB(6);"[153] [212]HE CORRECT ANSWER IS";PP;"[157] [145][155]":W=W+1:GOSUB730:GOSUB793
2265 IFUP/10=INT(UP/10)THENGOTO2150
2270 GOSUB835:GOTO1280
3370 RESTORE:FORI=826TO848:READN:POKEI,N:NEXT
3380 DATA162,128,160,0,132,33,134,34,177
3390 DATA33,73,128,145,33,200,208,247,232
3400 DATA224,132,208,240,96
3410 FORJ=1TO4:SYS826:P=.3:GOSUB3430:NEXT
3420 RETURN
3430 P=P*60
3440 T=TI
3450 IFTI<T+PTHEN3450
3460 RETURN
8145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
8150 UZ=1:UV%=PEEK(UT):GOTO1650
8152 GOSUB835
8155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEU
8160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
8165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%:POKEU4,U4%:RETURN
8170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
8175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
8999 :
9000 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
9010 REM PROJECT DIRECTOR: FRANK WINTER
9020 REM PROGRAM NAME: MATH FACTS DRILL
9030 REM WRITTEN BY DAVE ARTHURS
9040 REM REVISED BY R. WENZEL
9050 REM UPDATED BY BILL CUMBERLAND 90
9060 REM WHC 90:11:29